﻿Public Class clsInhSwiadectwoSkladChemiczny
    Inherits clsSwiadectwoSkladChemiczny

#Region "Attributes"

    Private mvarPierwiastek As clsInhPierwiastek

#End Region

#Region "Properties"

    Public Property Pierwiastek() As clsInhPierwiastek
        Get
            Return mvarPierwiastek
        End Get
        Set(ByVal value As clsInhPierwiastek)
            mvarPierwiastek = value
        End Set
    End Property

#End Region

#Region "Methods"

    Public Sub New()
        MyBase.New()
        mvarPierwiastek = New clsInhPierwiastek
    End Sub

    Public Sub New(ByVal ID As Integer, ByVal lvarDbHolder As clsDataBase)

        MyBase.New(CStr(ID), lvarDbHolder, VAR_ERROR_HANDLER)
        mvarPierwiastek = New clsInhPierwiastek(MyBase.PierwiastekId, lvarDbHolder)
    End Sub

    Public Overloads Sub Save(ByVal lvarDbHolder As clsDataBase)

        MyBase.Save(lvarDbHolder, VAR_ERROR_HANDLER)

    End Sub


#End Region

End Class
